COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(comment bps 15000.)
C00008 ENDMK
C⊗;
(comment bps 15000.)
(progn
 (CLOSE INFILE)
 (INPUSH -1)
 (fasload let fas dsk (mac lsp))
 (princ "
  Loading Scheme System
  " tyo)

 (setq putprop (append '
		(FORMAT-CTL-ONE-ARG
		 FORMAT-CTL-MULTI-ARG FORMAT-CTL-NO-ARG
		 FORMAT-CTL-REPEAT-CHAR
		 DEFSTRUCT-DESCRIPTION
		 DEFSTRUCT-NAME GRUBOUT-TTY-OP
		 DEFSTRUCT-SLOT FETCH ASSIGN SAVE RESTORE
		 GET-STATE SET-STATE RACK-NUMBER RACK-TYPE
		 GRINDMACRO SYNTAX-PROCESSOR PROCEDURE-CLASS
		 VERSION EXPRESSION-CLASS UNSYNTAX-PROCESSOR
		 MACROEXPANDED MACRO AUTOLOAD)
		putprop))
 
 (setq *lisp-imports* nil)

 (setq gc-overflow '(lambda (x) (print (list 'allocating x 'space) tyo)))

 (load "uprocs.fas")
 (load "arith.fas")
 (load "lists.fas")
 (load "array.fas")
 (load "types.fas")
; (load "gprint.fas[mac,lsp]")
 (load "trnput.fas")
 (load "syntax.fas")
 (load "advice.fas")
 (load "macset.fas")
 (load "mucode.fas")
;(load "sedit.fas")
 (load "initst.fas")
 (load "format.mit[mac,lsp]")
; (load "umacro.fas")
; (load "smacro.fas")

 
 (fasload demon fas dsk (aid lsp))

 (gc)(gctwa t)
 (sstatus gctime 0)
 (SUSPEND '|Save sys scheme|)
 (APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR))) 
 (cond (si:ecalledp
	(setq -em:herald- ())
	(em:mail-interface-initialize)))
 (setup)
 t)